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4065 
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4095 
4100 
4 105 
41 10 
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4185 
4 130 
4135 
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atti rfK> ììe£EE) 


4050 o ok e 5 336 0 , 0 : p oril e 5338 1 ,0 ‘ p'r :n t " SH : t ab < irlo' 

P0fCe56334,peeKf5G334>and £5^*V»V.V.V/.V.V.V. , . , ,'. , .', , I 

poKei •MM?AW^%%VtV«v*v»v.v.v# , .v!vXv!v!v! 
• •••••• • • • • • •••••••••••••••••••••••••••••( 

^rvVrtV/^.VA%V.%V/iV.V.V.V.V.V. , . , . , .*,V. , .*.V, 

poKe 14 33B+K ,peeK <53248 + !*%*•*•*•*•"•*•*•*•*•*• W"#*»*«*»*«%*«*«*«*«* ( 

• • • • • •• è • • • • •••••••••••••••••••••••••••• 

•fexrté^V.V.V.V.V.V.V.V.V.V.V.V.V.V.V.V.V.V.V 
• ••••••••••*•••••••••••••••••••••••••••••< 

d e 1 ,pppK C 1 *>or 4 

Mrf iVriV r é Irt 1 • ••••••••••••••••••••••••••••< 

poK e56334 , PeeK <56334 r # 4 

• • •••••••••••••••• 


-forK =58*8to59*0+7 

• •••••••• • • • • • • • 

r e ad a Vt%VtV#Vi%%V 

poKe \ 4339 VAVtVtVi 


nex + X 


_ • • __ ___ 

»••••••• 
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!••••••• 
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!••••••• 
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• ••••• 
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• • • • 
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!••••••••< 

• •••••••• 

»•••••••• 

• ••••••••••••••; 

poKe5327£ , CpeeK <53272 > and 240 >’*2»J«{«*»*»*e*e***e***»*»*«***»***«*******i 

print”SDEI"tab(17)"ecccl iitttll 

ox».*3roi».oi».*iM.»iii*.oriiiTr» • • • • • m • tetti 

AVt'tWtVt'eVtVtVtVtV 


pr irttab <17? 

data£4 ,24,60,90,£4,£4,20,54 
data255,128,129,129,129,129,129,255 
gety^s i -f y £= ” " t h e n 4 15 0**#*#*#*#*#*»***»*#*#* 
poKe53372 ,21 :poKe59£S0,3 :poKe53£S1,9 




• ••••• 


VtVt"tVtVtVtVtVtVtVi 

.SV.V.V.W.NV.SSV.V 


• • 1 

end 


Lineo orizzontale CDM 64 


6000 

6240 

6260 

6280 

6290 

6300 

6330 

6340 

6360 

6380 

6400 

6430 

6440 

6460 

6430 


rem * * * linea’ orizzontale * * * 
•fori=819£to iei32:poKei , 0 s n e /1 i VP r iht 
poKe5327£, pesK <53272>or3 
p o K e 53E85,p e e K < 53265)o r 32 
■fori = 1024t o2033 :poKe i ,3 rrext i 
WiWM'tVtVtVtVtVtVtVtVl 

forx=30+o£00! y ~100 
r iga = int <y /"5 ? 
co 1= int <x /Q> 

1 in =y and 7 

1 oc =b as e +r iga+330 *co1*3 +1 in 
va=peeK<loc> or 2tbit 
coKe loc ,va 
nextx 


• • • • 

-.-••••••••I 

Vt'tVtVtVtVtV 

'*•*•*•*•*•*•*•*•*•*•*•*• 
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I • • • • 1 il 
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Sinusoide CDM 64XvXvXv.v.v.w. 

500 -fo- i =6 I32tc* 16132.* poKe i ,0.*nex* i :pr in+ "3’ 

54 r - . -=*3t£€3,cee‘'- ■" 53265 a or 32 

5 t? -c- i t>2023:poke i »5V»W«V»V»V»'« 

WbW^VW*»V»V»ViVAV>V>**VtV*ViV 

?C*C 4p- - =0+o319step0 .5 

<90+80 *£ in (x/* 10 > >*•••%••••*•*•*•*•*•*•*•*« 

^^^«^jV^ìVAVJ*********#**********"**»"»"******#**"»**" 

680 1 ine=y and 7 

700!WoW»W»V*V«V«V»V»V»V»V»V»V 

720 byte =bas e+r ou *320+ch ar *S+1 ina 
740 poKsby+e , p e e K < b yt e > or £tb i+- 

760AVÌW»*»V*V»*»%%V#V»V»V»V»%%*»%V 


Rettangolo CDM d^X # X*X*X # X*X*X # X*X # X*X*! 

1000 rem *** rettangole *** 

1260 fori =8192*0 16 192 :poKei,0 : ne xt i:prin*"a” 

1280 poKe53272,peeK(53272)or8 
1300 poKe53265,peeK(53265)or32 
1320 for i = 1024to2023:poKei,3!nexti 
1340 base =3192 

1360 -f orx =50to200 ‘ y =50 s gosub 1460 inextx 
1380 -fory=50to 100 : x =200 ' gosub 1460:nexty 
1430 -f or x = 200t o50step -1 !y=100:gosub 1460:nextx 
1420 + ory = 1 00* o58s *ep - 1 !x=50:gosub 1460 : nex t y 
1440 goto 1620 
I4S0 riga=in*<y / 8 ) 

1420 coi =in-t (x/3> 

1580 i in -y and 7 
1520 bit=7-(x and ?> 

1540 !oc=base+r iga.*320+co 1 *8 + 1 in 
1560 v a=peeK(loc) or 2tbi* 

1580 poKe loc ,va 
1600 return 

1620 gety$i i-fy$=" "then 1620 

1640 poKe53265,peeK(53265)and223 spoKe53272,21sprin*"9" 


• 4 


Creatore di caratteri CDM 64 


1? ; : poke5S .-56 : por.e3 1 ,0 ; poKe 55,0 

r53£r0 .,=ipotie^£8i , 

102 pr ir.t "c h r$( 1.4 Jtab < 15 ? “a^LLEGATC 23” 

^v!vm'JC , Xv!v! < 4 re ^ tor,: D1 c^ratter OXvXvMv 

110 9oì ub3C00 ’ go sub 4000 •*•*•*•*•*•*•*•*•*•*•*•‘ 


• • 


• • 


20Q rerr creatore di caratteri 

!««•••• «_«J| •••••••••••••••• 

880 c- M a n » •••••••%•<- ■ 


>•••••••••••••••• 

>•••••••••••••••• 

240 i,rc = 1320to13£?:poKeq,100;poKeq+360,53:ne,xtq 


• • 


• ••••• 
9 0 9 9 9 4 
9 0 0 0 0 9 
0 0 0 0 0 4 
0 0 9 0 9 0 
0 0 9 0 0 4 
9 9 0 0 9 0 


260 fc'-q=55565to55572:poKeq,f :p oKe<i+3Se ,f • nextq. 

£30 -f orq = 1359to 1639st ep40 : poK e q , 1 03 : P oKeqVS , 1 0 1 : next q 
300 + o r q =5563Ito559.1 Is tep40 s poKeq ,f : poKe q*3 , * ! nextq 
320 printchr^<142>* ? input " 3:tttKEEtlWWtlÌ>i>WI '■■=>£ 

340 ; =0 :-f or x =8to 15 

330 ifpeeK < 1024 +x *40 + q ? =22t K .en a=0 : gc to420 

> 0 9 9 900090000090900000099000090990909 

400 a= 1 

+ a * <2t <23 

'AV/AV»%%ViV»V»Vi%Vt'»%V»V#V«V»V«VtV»tIt##^ 

I IJLI ••••••••••••••••••••••••••••••••••• • • • • 

•^^XOi^XOX^vX'XvXvXvX' 

430 rex+.x ;pr irt 11 aktmKmtmW t ^ C 13 >; 1000 

iWIlVWiVMVAViNViViVtViVAViViVAVAViV 

G10 i f y i"= " v " thenpo«e53272,21 : g o t o 80 8^ •*•*•*•*•*•*•*•*•*•*•*•*•*•*•' 
620 i -f y $= " c " thengosub2000:got o3Z8 9 \WW* 9 * 9 * 9 \* 9 \W* 9 W*, 
630 i -f y $= *'s "t henpo Ke5327£ ,21 igotoS 

| StìiJ(?rAM , V»V»VtV»V»V»%|tV»V»V»'»V»X , X , ''X'Xv 

300 print”a"chr*C142>” SI V» VAVAV#%V ^ e r e : a" 

820 -forq = l + o8!pr ir. tm<q); JnextqJend 

850 pr int "a'^hr^C 142 i "Storne dello spr iteSI” : inputnoi 
860 open 1 , 4 : p r i ri t # 1 , "sp VAV > n o * l , l V#'»V»'»%*«W»V*Vi 
370 -forq=lto8;pr in t # 1 ,m(q); : nextq 

1010 poKe56334, peek' ( 56334)and£54 
1015 poKe1,peeK(1)ard251 
1020 torK=0to£3t8+' gVW VWVy|WC 
1040 poKe 14336+K,peek (53243 +k) 

nO000 W MftO Q«XHXW | OOpppttflpòQOQpflOwQW?ptiOtiÒpO4 

1075 poKe56334 ,-peeK <55334 )or 1 
1030 -f or K =63*3to63*8+7 

1120 poKe1423S+K,m<g) 

1140 ne x ^OVQQOOQQ 

1 160 p oKe53272 , <peeK <53272>and240.'or 14 
1180 print"g fcfcfcfcfcfcfcfcL-b C lfl EC V t ab <20 > 11 ? " 

! - 0• “tu 
2000 poKe5327£ ,£ 1 
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• • • 


I • 0 
• •••••••• 

»•••••••• 

••••••• 

• ••••• 


2020 pr int 11 gEttfeEEM "ehr *< 142 > 
£040 pr in+.tab CSJfV 


• • • • 


2080 pr i.ntt ab <S\ m J*. 

£080 p r i n + t 

£100 pr inttab O.n 1 ! \ 

2 1 £0 printtab 1 * 

£140 pnr-t-tabO)" 

2i £0 p)avawKv!v!v! 

£180 pr inttab<3)" ) . 

££00 pr inttab <9> " I 

• • • • • 


a • • 
• • 

• • 


••••»• j/ 

• • • d r • 
9000 • • 

• • • « • 
• 9 0 • M • 

• ••••• 
9 9 9 0 |9 ■% 

9 119 9 0 

# 0*9*9*4*^ • 


VtV/t 


££20 print + abO)" 




2300 -fcr x =3+o 15 
2320 •Porq«=16te23 


900l999t99999999«( 
099909099999»9999 
999090099I99999999 
0900900«099«99999 
990990090999999999 
99990990099t«999t 
90000900999«tl9«99 
0990990#09999«090 
990999099t999999«9 
9t909090999099t99 
• 09009t9999t9999tt 
900999090000000aa 
909090#0C999999999 
9009000090000909a 
909909999000000000 
90000000009000900 
9900000000000000«« 
99999099090090000 
909009000099009000 
00009000090000990 
900000000000000000 


0 0 9 9 0 


9 9 


9 0 9 0 
0 0 9 
9 0 0 0 
0 9 0 
9 9 0 0 
0 0 0 
0 9 9 0 
9 0 0 
9 0 9 9 
0 9 0 


0 9 0 
9 0 0 0 
9 9 0 
9 0 0 0 


9 0 0 9 
0 0 0 
0 9 9 9 
9 0 0 - 


9090990099999 

9099900009994 

0099000090900 

0900000009904 

9009009009999 

9909000990901 

9099990900090 


2340 ifl <x-7,r*-15> = !therb=3i :got j£323 

9.0 9 ., 9 9 9 9 9 9 0 9 9 0 9 9 0 9 0 0 0 0 9 9000900900900000 

WW i éTW0 0 0 0 0 0 0 0 000000000000000000000000000 # 0000*000 000900001 

• • • • • 0 • 1 • • 0 0999999099909009900909901 

£400 ne>;tq ,x : 30 + 0 320 


3000 pr int »?r 5 M un tasto" 

3100 getvfJify* ="" t h e r 3100 

«tù* 2 n t ” 9v\?ift\B4%W*0%WWWWWWtW*0%\%\W 9 o% m 

4 0 2Vrtv/*TtVtV«vpwp^wlwi , W'X , X*»*»*X*! , !*X , X 

4020 pr int "SlQuesto programma ti aiutar*' a disegnare” 

MM4M\V*WbVrfWV^«V.V«%VaV.V.V.V.VeV.%V.V.V 

4060 pr int "Ef-isa i tasti 

4080 pr int "Sf^-e 1 1 e 4 direzioni e annerisci 1 Furiti" 

4100 pr i"t "Stattendo MtSV/kVln'imVnÙtVt'iVt****'******** 
4120 p- irt "SPer oeder ^,ViSV/iVlWt^V/i*t%V»*»V« , »V#%*» 
4140 cr int “SW 6 jJ»V«V»*»VtV 

SFrint"2|aittendere. " ’;*»*«*.*•*•'«**'■- 

a !50 sesub3000 

4 ISO p r int " SCu andò il car attere e ' visuali zzat o puoi" 

4180 pr int "usare i s * 9 ' :er. t * tufi’ 1 

4280 p-i»t SBT3 Per car-egge-e ìJ carattere” 

4300 pr int Fer v issaiizcars su «3 ideo i dati" 

4320 orint’SWSa per si’-tire s-- stampante i dati" 

440C gosub3000 :•• = tur n 
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Istogrammi tridimensionali CDM 64 

*l6b***»JW*WV**‘stogr 

2 P * cr % - J?152to43176:reada:poKeK ,a«nextK 

rifi da* ? €9 -C», 133,851,163,32,133, £52,1S2,3£ , 160 ,0 ,163,0,1 45 ,25 1 
40 d a t ^ 13? - -03,25 1 , 230 , 25c- , cO- , £S-_- r c-4c , -sS 

*•*•*•*•*•*•*•*•*•*•"•*•*•*•*•*•*•"•*•*•*•*•* •*•*•*•*•*•* •*•*•*•*•*•*•*•*•*• 
1 20 PCKe532?£,peeK (53£32 > c 

130 t»oKe53265 ,peeK <53205 > c r^3&***«\***»*«V#*»*«®«V»V»V»*»*»*«*«*«,« V 

140 f o- < = 10?^-to20,?3*poKe i ,&*&*+. 

*iM»M(Wijw«v#v»v»v»x«v»XvX*X , X'XvX*X , «v« , »% , «v«*i 

3w*/AVAVAVlVAV»V»V«V»V»'»V» , »V»V»'» , tV»V»V»V*Vi 

210 i-fx<0orx >319then£30 
220 i-fy<0ory >193then280 

230 p =bn+3S0# int <y /6 > +S* int <x/8 > ♦ Cy and V • # • ■ . • , *. • 

240 i-f er = lther.270 

250 poKeP , p e e K < p )or < 21 <7-<xand7) > > 

260 goto 280 

270 poKep r peeK<p>arìd<255-£t<7-<xand - .''>> 

280 return 

300 sx =s.gn <x2-x 1 ):sy=i9n(/E-/ lVt , «%V#'»V#V#V«V«Vt'»V»V»Vl 
310 nx=sbs(xc-xl)!n>'=abi(y2-yl) 

320 x-xliy=yl : 9osub200 
330 i -f ny >nxthen330 
340 n d = ; r t <->x / 

350 forK = 1 + onx:nd=nd+ny 
360 :-f nd <nxthenx =x+sx : goto330 

370 nd =nd-nx :x =x+sx :y =y+sy 
380 gosub£00:next:goto440 

w^vwvavww.v.v.v.v.v.v.v.v.v.v.v.w.v.v.v.x« 

400 -f or K = 11 ony s nd =nd+nx 
410 i-fnd<nytheny=y+sy :g o t o 4 30 
420 r d =nd-ny : x =x+s x : y =y+= y 
430 go3ub2005next 
440 return 

500 -forxp=0to100step£0 

510 x 1 =xc +xp : y 1 =y c -xp /2 

520 x2=x1 -100 s y2=y1-50:gosub300 

540 -foryp =0to90step 15 

550 x 1 =xc-yp:y 1=yc-yp/2 

560 x2=x1 + 110:y£=y1~55:gosub300 

570 next 

530 return 

600 -f orn =0toz - lstep2 

610 x l=xc+xp-vp :y !=yc-xp/é-yp/2-n 

620 x2=x1+xa:y£=y1-ya:gosub300 

630 ne t 

640 -forn=0toz-l 
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W w 


650 

660 

670 

630 

690 

700 

710 

720 

740 

750 

760 

770 

780 

790 

300 

310 

820 

830 

340 

850 

360 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1030 

1090 


x 1 =xc +xp -yp ' v 1 =yc -xp/ 2 -yp/ 2 -(i 
x 2 =x 1 -xb s/£=yl-yb:er = l:gosub300 
next:er =0 

x 1 =xc +xp -y p : y 1 =ycixp/ 2 -vp /2 
x2=x1-xb sy 2=y1-yb:gosub300 
xl=x2:yl=y2*yS=y2-z:gcsub300 
x I=x£:x 2 =x 2 +xb:yl=y£ 
v H =v 2 +y b:g o s ub 300 
i orti = 0 toxb - 1 
x i -xc 

x2=x 1 +x a * >* 2 *=y J -V 3. ; er = 1 : go.»ub30C 
nex-t : e r =0 

x l=xc +XP -yp •' y 1 -yc -xp /2 -yp/"2-z 
x2=x ! +xa!y£=y 1 -y a :gosub300 

x 1 = x 2 « x 2 =x 2 -x b » 

y 2 =y 2 -yb • g c su t>300 • • • •• • • 

x 1 =x 2 !x£ = x 2 -xa sv 1 =y 2 s y£ = y£+y3 

x 1 =x 2 *.x 2 =x 2 + xb : y 1 =y£ ! ’'2 = y 2 <-yb 

b 300 •jM.M.M, 

r e tur n_ • 

xc=160:yc=I30:er=0 
xa= 10 sxb =S s ya =5 * yb 
gosub500 

■for xp = 100 tc 0 step -20 
■f or y p =90to0s tep - 15 

z=int<<2+cos(yp/29>)*(yp/10+l>) 

gosub600 

next 

next 

end 


• • • • 


• • • • 


• ••••• 


• • • • 


• • 

• • 


• • • • • 


• ••••• 


• • • • • 


• • 


• • • • 


. • _ 

• • t 
I • • 

• • « 


• • 
• • « 
• • 
• • < 


• • • v 


• • • c 


• • • • • 


• • • 


• • • 


• • 


• • « 
• • • 


• • •s 


• • •; 


• V 


• • • 


• • • 


• • • 


• • • r 


• • • • 


• • • 


• • • 


• • « 
• • • JAv 


• • • O 


• • • ••••••••• • • • 

••w.vAv.y • 

v.v.v.v.v. v. v. 

■ •••§••••••• 9 9 

• 9 9 9 

• ••••••••• •§•••• 

.V.V.V.V.V.V.V.V.V.Xv 
.•.W/.V.VA • • • • • •!• • - J 




• 9 9 9 4' 




• • 


• • • # #_ 


9 9 • 

. • • 

,v. 

••V. 


• • 
9 9 


• • 


• • • 


w • 

_ _ 9 9 
• 9^9 J 
• • 9 9 




• • • • • 9 9 9. 


• 9 9_9 


• • 


• • • 

9 9 • « • • « 
• • • • § • 
• • 9 9 9 9 < 
**•••• 
• • 9 • ' 
• 9 • 


9 9. 


• • • fi 
Itili! 

• 9 • • • 
• 


’ - • • 
t^t^t# • 

> • 9^9 J 
• • 9 9 
. • • • 

r- 9 9 9 9 9 9 9* 

. 9 9 9 9 t_#^t 
• • • • • 9 9 9 9 9* 

iViVf fi 

>9 9 9 9 9 9 9 9 9* 
ili 9 9 9 9 f Vi.-- 

«••••Iffiff f • 
t I f f f f 9.9_9_9 • 


J 9Jj 

I 9^V 

• 9j| 

I 9 V 

• •a 


_9_9, 


9_9 9 9 


9 9 9 


9_ 
• 9 

_9_ 


9 9 


9^9 W 9*9’9’9’9’’9^9 
>9 9 9 9 9 9 9 9' 

9 9 9 9 9 9 9 9 9 
199999999 9 > 

• • • • • 


> • y 


9 9 9 9 9 


„ _ 9 ( 

9 9 9 
I 9 9J 
9 9 9 


iV.'iWi 

»••••%%%•« 

9;9 _9_9_9. 


P9 9 
► 9 9~P 
9 9 9J 
I 9 9.9, 

• 


9 9t 






• • • •• 


• • 


SS 


,V.V.V.%W*Y»%X*X«!»fl 
Vmam.v.v.VAWAM 
v.v.v.\v#%v > 


9 'w 

9 9 
9 9 
9 9 


AV. V.VtViNM 

••V.V.V.Vej 


:-x¥x 
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Onde tridimensionali CDM 64 

, tridimens ioral i * ìft \* .*,*.•, 

' It c 4S176*readaJpcKeK ,a:nextK 

3,25 1,163,32,133,252,162,32, 160,0,163,0,145,251 
^ -25 1,230,252,202,206,246,36 
' Wvsfàosi? . 



Vt w»w,v. .V...V».V##.V.V. , . , .V*V.V 

’2C '2,peeK<53272>cr8 

«V■ « ■ . . . . . . . . » » « • • • » » • • 


63265 ' p56k ' 53265 or 32 *.V.'i'.'.vMv, 
W i = 1024+ c 2023 : p o K «vHVAVM'I'X'IvX 

• • • • • 

• • ti ttitA*É«A« 


• • • • € 
• • • • • 




•••••• 

lit itti 
• ••••• 
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W.%V»\Vi *. y = i n t < y V/i 
210 i fx < 0 or x >319then250 
220 If y <0ory M33thers250 
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230 p =brf!+320*int <>' .'2 > *3 * in t Cx/'SJ + ^and?} 
240 r>oKe p ,peeK<p lor <2+<7-<xand7)>> 

250 return 
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1020 d e -* f na<z > = 10 *cc<s <K* (XP *xp+yp *yp ;VM%vXvM 
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1030 -forxp =-100to 100 * 

1040 y 1 =5*Int <sqrC 10000 -xp +xp >/5 > 

1050 -foryp =y Ito-y istep-5 
1060 2 = + na (sq" <xp *xp typ #yp ? ) -rri*yp 
1070 i i y p =y 11 h e n 1090 *•*•*•%%*•%*•%%%% 
1030 itz 'z lthen ! 1 1 8 V#V»V»%V»V*V"' 
1030 x = 160+xp:y = 100-int <z/2 ):gosubH 00 
i j 00 

1110 n 
1120 nei 
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Sinuso 'rxte ViC 20 


ic,e ***•.*••••« 

SO * > c 3tet3 ,253 V. V. V. %V« 

30 ,* X%52.È»! • IvXvIvMvIv 

« ;--«>;«? ; vXvXvMvX 

w !vXv!v!v!v 

-r 'c*T !75' XvX'/.vXv 

in (8■)»£.> 

SO Ditto 3000 •••*•••••••••••••••%•••« 

*TC sosdt'4000 /«V.'/.vXv 



: i0, 

34t«$: i -f a*= " " t h e n 120' .••••••••••••*••••••••••••••••••••••••••••••••••••••• 

130 poKe36863,240 :pciKe56,30:poKe52,30:clr:priritchrse<147>:end 

100 O peni • # * # * # * ( » - « - **» > « # * t * - **»**V%*•*•*• %*•*•*•*•*•*•*•*•*•*•*•*•*•*•*•*•*•*•* 

1010 printchr$ ,, 1147) 

?020 f or i =0to24 1 
1030 poKe7B30+ i ,i 
1040 poKe38400+i ,6 
1050 next:return 

•%%%*«%%%%%%%*#*#*#% # «%%%***«*«*e*#%*«*e*«*«*»*#%%*#* 

2010 for i =0to241*8+7 
2020 poKe5120+i,0 
2030 next '.return 

3010 ifx<0orx> 175then3040 
3020 ity<0ory >87tben3040 

WÈV/^WWtV»%*»*»*«%V»V*%*»V»%ViV»Vi*»V,V«V, 

3040 poKe 36363 ,240: pr ir tctirf( 147> 

3050 e n ^%%%%%%%%%%%%%%%*•*•*•*•*•*•*•*•%*•*•*•*•***#*•*#*•*•*#*»%!*•*) 

4010 u=int<y/8)su=intCx/8) 

4020 m=5120+<22*u+v>*8 

4030 r=yand7:c=xand7 

4040 poKerr*+r ,(£t(7-c))crpeeK(m+r ) 

•J050 return 
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Disegno cerchi VIC20'v*:XvfvXvXv> 

10 rem * * * disegno cerchi * * * " 

20 pr ìnt "9" 

40 po k e 36879, 4S|*V*V»V«V«V«V»V*V»V»Vt|«V 

50 p oKe 36363,253 :p 0Ke36367, p e e K<3S367>or123 
60 poh e55,0 « poKe56,£5!poKe51,0spoKe52,13 
70 clr :s =32768 s-1=5 120 

80 -fori =0+.o255*8 + 7 : poKe ift ,peeK ( i+s ) snexl; 

30 goto ! 70 

1 00 x frf»x /'& ’ y V.-y SS s P —x X+yX #22 + 7830 
110 q=peeK <p ) s i-fq< 128+hen 140 
120 c=5 120+4*3+<yand7> 

130 PoKec ,peeK(c )or<2t(7-Cxand7?>):re turr 
140 co =cn + 1 : s =5 120 + < 127+crs >*8 s t =5 120 + 4*3 
150 tori =0to7:poKes + i ,peeK(l+i )ine>.t 
160 q= 127 + cn Jpok'ep ,4 ! goto 120 
170 -f or i = lto22 s poKe7580+2£* i ,93:next 
130 PoKe7680+l1*22,107 

190 f or i = lto£ 1 : poKe7680+ 1 l*22+i ,G4ir.ext 
£00 rd =40 : -f or 2 =0to2*$fcstep . 05 : x =cos Cz ) *rd +80 
210 y =sin (z> *rd* 1.7 + 88 :gosub100 

220 x =cosfz >*rd+90sy=sin<z>*rd*l.7 +93:gosub100 
230 next 

240 geta*: i-f a*= H "then240 

£50 poKe35879,27 s p rint “30“ > :poKe36369,240 
£60 poKe58,30 
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